home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
colortst.prg
< prev
next >
Wrap
Text File
|
1984-09-25
|
2KB
|
38 lines
**************************************************************
* *
* COLORTST.PRG By John Chidester *
* 5515 N. 7th Street, Suite 5-169 *
* Phoenix, AZ 85014 *
* *
* Created 09/24/84 *
* Requires: dBaseII (Ver 2.4) *
* Color adapter & color monitor (IBM PC) *
* or COMPAQ Computer *
* *
* A development tool for dBaseII programmers. *
* Displays 'say' and 'get' in different colors allowing *
* you to choose which colors to select for your *
* command files. *
* *
**************************************************************
STORE 0 TO x
STORE 0 TO y
STORE 0 TO COUNTER
@ 23,23 SAY ' '
****** RUN THROUGH ALL THE COLOR VARIATIONS
DO WHILE x<=256
SET COLOR TO x,y
?' This is color ',str(x,3,0)+','+str(y,3,0),' '+;
' '
STORE x+1 TO x
STORE y+1 TO y
STORE 1+counter TO counter
****** 'COUNTER' ROUTINE PAUSES BETWEEN 'SCREENS'
IF counter=23
WAIT
STORE 0 TO counter
ENDIF
ENDDO
****** RETURN COLOR TO 'STANDARD'
SET COLOR TO 15,15
RETURN